﻿Imports System.Text
Imports System.IO
Imports System.Data.SqlClient
Imports System.Data.Odbc


Public Class frmCatalogoClients
    Dim lEstructura_Clientes As SDK_AdminPAQ.tClientes
    Dim Buses As New clsCatalogoAutobuses
    Dim Errores As Boolean


    Private Sub frmCatalogoClients_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        'CierraSDK()
    End Sub

    Private Sub frmCatalogoClients_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Errores = False
        'CargaSDK()

    End Sub
  
    Sub ActualizaAutobusConop(ByVal Fila As Integer)
        If Errores = True Then
            MsgBox("No se pudo continuar", MsgBoxStyle.Exclamation, "Aviso")
            Exit Sub
        End If
        Buses.IdAutobus = BuscarIntDatoCitra("SELECT IdAutobus FROM Autobuses WHERE cCodigoC01='" & UCase(Trim(dgClientes.Rows(Fila).Cells(0).Value)) & "'")
        Buses.NoEconomico = dgClientes.Rows(Fila).Cells(1).Value
        Buses.IdRuta = BuscarIntDatoCitra("MGW10002", "cIdValor01", "cIdClien01=" & Buses.IdAutobus)
        Buses.TipoKms = 0
        Buses.cIdClien01 = Buses.IdAutobus
        Buses.cCodigoC01 = dgClientes.Rows(Fila).Cells(0).Value
        Buses.cRazonSo01 = dgClientes.Rows(Fila).Cells(1).Value
        Buses.Placas = " " & dgClientes.Rows(Fila).Cells(7).Value
        Buses.Marca = " " & dgClientes.Rows(Fila).Cells(8).Value
        Buses.Modelo = " " & dgClientes.Rows(Fila).Cells(9).Value
        Buses.Serie = " " & dgClientes.Rows(Fila).Cells(10).Value
        Buses.Motor = " " & dgClientes.Rows(Fila).Cells(11).Value
        Buses.Estatus = 1
        Buses.Importe05 = BuscarIntDatoCitra("MGW10002", "cIdValor02", "cIdClien01=" & Buses.IdAutobus)
        Buses.ActualizarNuevo()

    End Sub
    Sub ActualizaClienteAdminPAQ(ByVal Fila As Integer)

        Dim strSqlQry As String
        Dim cnConn As New OdbcConnection
        cnConn.ConnectionString = AdminPAQConnection1

        strSqlQry = "Update MGW10002 Set " & _
                    " cRazonSo01='" & dgClientes.Rows(Fila).Cells(1).Value & "'," & _
                    " cIdValor01=" & BuscarIntDatoCitra("SELECT cIdValor01 FROM MGW10020 WHERE CCODIGOV01='" & dgClientes.Rows(Fila).Cells(2).Value & "' AND CIDCLASI01=7") & "," & _
                    " cIdValor02=" & BuscarIntDatoCitra("SELECT cIdValor01 FROM MGW10020 WHERE CCODIGOV01='" & dgClientes.Rows(Fila).Cells(3).Value & "' AND CIDCLASI01=8") & "," & _
                    " cIdValor03=" & BuscarIntDatoCitra("SELECT cIdValor01 FROM MGW10020 WHERE CCODIGOV01='" & dgClientes.Rows(Fila).Cells(4).Value & "' AND CIDCLASI01=9") & "," & _
                    " cIdValor04=" & BuscarIntDatoCitra("SELECT cIdValor01 FROM MGW10020 WHERE CCODIGOV01='" & dgClientes.Rows(Fila).Cells(5).Value & "' AND CIDCLASI01=10") & "," & _
                    " cIdValor05=" & BuscarIntDatoCitra("SELECT cIdValor01 FROM MGW10020 WHERE CCODIGOV01='" & dgClientes.Rows(Fila).Cells(6).Value & "' AND CIDCLASI01=11") & "," & _
                    " cEstatus=1," & _
                    " cTextoEx01='" & dgClientes.Rows(Fila).Cells(7).Value & "', " & _
                    " cTextoEx02='" & dgClientes.Rows(Fila).Cells(8).Value & "', " & _
                    " cTextoEx03='" & dgClientes.Rows(Fila).Cells(9).Value & "', " & _
                    " cTextoEx04='" & dgClientes.Rows(Fila).Cells(10).Value & "', " & _
                    " cTextoEx05='" & dgClientes.Rows(Fila).Cells(11).Value & "', " & _
                    " cImporte01=" & dgClientes.Rows(Fila).Cells(13).Value & "," & _
                    " cImporte02=" & dgClientes.Rows(Fila).Cells(14).Value & "," & _
                    " cImporte03=" & dgClientes.Rows(Fila).Cells(15).Value & " " & _
                    " where cCodigoC01='" & dgClientes.Rows(Fila).Cells(0).Value & "'"

        Dim cmdInsert As New OdbcCommand
        cmdInsert.Connection = cnConn
        cmdInsert.CommandText = strSqlQry


        Try

            cnConn.Open()
            cmdInsert.ExecuteNonQuery()
            cnConn.Close()

        Catch ex As OdbcException
            MessageBox.Show(ex.Message, "System Message", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Catch ex As Exception
            MessageBox.Show(ex.Message, "System Message", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Finally

            If cnConn.State = ConnectionState.Open Then
                cnConn.Close()
            End If

        End Try

        'Errores = False
        'Dim lAux As String
        'Dim lIdCliente As Long
        'Dim encoder As New System.Text.UTF8Encoding
        'Dim lRet As Long

        'Dim CodigoCliente As String = dgClientes.Rows(Fila).Cells(0).Value
        'Dim RazonSocial As String = dgClientes.Rows(Fila).Cells(1).Value

        'lAux = f_RellenaConBlancos(dgClientes.Rows(Fila).Cells(0).Value, kLongCodigo)
        'lEstructura_Clientes.cCodigoCliente = New Byte(kLongCodigo - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cCodigoCliente, 0)

        'lAux = f_RellenaConBlancos(dgClientes.Rows(Fila).Cells(1).Value, kLongNombre)
        'lEstructura_Clientes.cRazonSocial = New Byte(kLongNombre - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cRazonSocial, 0)

        'lAux = f_RellenaConBlancos("01/01/2013", kLongFecha)
        'lEstructura_Clientes.cFechaAlta = New Byte(kLongFecha - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cFechaAlta, 0)

        'lAux = f_RellenaConBlancos("", kLongRFC)
        'lEstructura_Clientes.cRFC = New Byte(kLongRFC - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cRFC, 0)

        'lAux = f_RellenaConBlancos("", kLongCURP)
        'lEstructura_Clientes.cCURP = New Byte(kLongCURP - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cCURP, 0)

        'lAux = f_RellenaConBlancos("", kLongDenComercial)
        'lEstructura_Clientes.cDenComercial = New Byte(kLongDenComercial - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cDenComercial, 0)

        'lAux = f_RellenaConBlancos("", kLongRepLegal)
        'lEstructura_Clientes.cRepLegal = New Byte(kLongRepLegal - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cRepLegal, 0)

        'lAux = f_RellenaConBlancos("Peso Mexicano", kLongNombre)
        'lEstructura_Clientes.cNombreMoneda = New Byte(kLongNombre - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cNombreMoneda, 0)

        'lEstructura_Clientes.cListaPreciosCliente = 1
        'lEstructura_Clientes.cDescuentoMovto = 0
        'lEstructura_Clientes.cBanVentaCredito = 1

        'lAux = f_RellenaConBlancos(BuscarStrDatoAdminPAQ("SELECT CCODIGOV01 FROM MGW10020 WHERE CVALORCL01='" & dgClientes.Rows(Fila).Cells(2).Value & "' AND CIDCLASI01=7"), kLongCodigo)
        'lEstructura_Clientes.cCodigoValorClasificacionCliente1 = New Byte(kLongCodigo - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cCodigoValorClasificacionCliente1, 0)

        'lAux = f_RellenaConBlancos(BuscarStrDatoAdminPAQ("SELECT CCODIGOV01 FROM MGW10020 WHERE CVALORCL01='" & dgClientes.Rows(Fila).Cells(3).Value & "' AND CIDCLASI01=8"), kLongCodigo)
        'lEstructura_Clientes.cCodigoValorClasificacionCliente2 = New Byte(kLongCodigo - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cCodigoValorClasificacionCliente2, 0)

        'lAux = f_RellenaConBlancos(BuscarStrDatoAdminPAQ("SELECT CCODIGOV01 FROM MGW10020 WHERE CVALORCL01='" & dgClientes.Rows(Fila).Cells(4).Value & "' AND CIDCLASI01=9"), kLongCodigo)
        'lEstructura_Clientes.cCodigoValorClasificacionCliente3 = New Byte(kLongCodigo - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cCodigoValorClasificacionCliente3, 0)

        'lAux = f_RellenaConBlancos(BuscarStrDatoAdminPAQ("SELECT CCODIGOV01 FROM MGW10020 WHERE CVALORCL01='" & dgClientes.Rows(Fila).Cells(5).Value & "' AND CIDCLASI01=10"), kLongCodigo)
        'lEstructura_Clientes.cCodigoValorClasificacionCliente4 = New Byte(kLongCodigo - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cCodigoValorClasificacionCliente4, 0)

        'lAux = f_RellenaConBlancos(BuscarStrDatoAdminPAQ("SELECT CCODIGOV01 FROM MGW10020 WHERE CVALORCL01='" & dgClientes.Rows(Fila).Cells(6).Value & "' AND CIDCLASI01=11"), kLongCodigo)
        'lEstructura_Clientes.cCodigoValorClasificacionCliente5 = New Byte(kLongCodigo - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cCodigoValorClasificacionCliente5, 0)

        'lAux = f_RellenaConBlancos("", kLongCodigo)
        'lEstructura_Clientes.cCodigoValorClasificacionCliente6 = New Byte(kLongCodigo - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cCodigoValorClasificacionCliente6, 0)

        'lEstructura_Clientes.cTipoCliente = 1
        'lEstructura_Clientes.cEstatus = 1

        'lAux = f_RellenaConBlancos("", kLongFecha)
        'lEstructura_Clientes.cFechaBaja = New Byte(kLongFecha - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cFechaBaja, 0)

        'lAux = f_RellenaConBlancos("", kLongFecha)
        'lEstructura_Clientes.cFechaUltimaRevision = New Byte(kLongFecha - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cFechaUltimaRevision, 0)

        'lEstructura_Clientes.cLimiteCreditoCliente = 0
        'lEstructura_Clientes.cDiasCreditoCliente = 0
        'lEstructura_Clientes.cBanExcederCredito = 0
        'lEstructura_Clientes.cDescuentoProntoPago = 0
        'lEstructura_Clientes.cDiasProntoPago = 0
        'lEstructura_Clientes.cInteresMotarotiro = 0
        'lEstructura_Clientes.cDiasPago = 0
        'lEstructura_Clientes.cDiasRevision = 0

        'lAux = f_RellenaConBlancos("", kLongDesCorta)
        'lEstructura_Clientes.cMensajeria = New Byte(kLongDesCorta - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cMensajeria, 0)

        'lAux = f_RellenaConBlancos("", kLongDescripcion)
        'lEstructura_Clientes.cCuentaMensajeria = New Byte(kLongDescripcion - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cCuentaMensajeria, 0)

        'lEstructura_Clientes.cDiasEmbarqueCliente = 0

        'lAux = f_RellenaConBlancos("", kLongCodigo)
        'lEstructura_Clientes.cCodigoAlmacen = New Byte(kLongCodigo - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cCodigoAlmacen, 0)

        'lAux = f_RellenaConBlancos("", kLongCodigo)
        'lEstructura_Clientes.cCodigoAgenteVenta = New Byte(kLongCodigo - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cCodigoAgenteVenta, 0)

        'lAux = f_RellenaConBlancos("", kLongCodigo)
        'lEstructura_Clientes.cCodigoAgenteCobro = New Byte(kLongCodigo - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cCodigoAgenteCobro, 0)


        'lEstructura_Clientes.cRestriccionAgente = 0
        'lEstructura_Clientes.cImpuesto1 = 0
        'lEstructura_Clientes.cImpuesto2 = 0
        'lEstructura_Clientes.cImpuesto3 = 0
        'lEstructura_Clientes.cRetencionCliente1 = 0
        'lEstructura_Clientes.cRetencionCliente2 = 0

        'lAux = f_RellenaConBlancos(dgClientes.Rows(Fila).Cells(7).Value, kLongTextoExtra)
        'lEstructura_Clientes.cTextoExtra1 = New Byte(kLongTextoExtra - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cTextoExtra1, 0)

        'lAux = f_RellenaConBlancos(dgClientes.Rows(Fila).Cells(8).Value, kLongTextoExtra)
        'lEstructura_Clientes.cTextoExtra2 = New Byte(kLongTextoExtra - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cTextoExtra2, 0)

        'lAux = f_RellenaConBlancos(dgClientes.Rows(Fila).Cells(9).Value, kLongTextoExtra)
        'lEstructura_Clientes.cTextoExtra3 = New Byte(kLongTextoExtra - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cTextoExtra3, 0)

        'lAux = f_RellenaConBlancos(dgClientes.Rows(Fila).Cells(10).Value, kLongTextoExtra)
        'lEstructura_Clientes.cTextoExtra4 = New Byte(kLongTextoExtra - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cTextoExtra4, 0)

        'lAux = f_RellenaConBlancos(dgClientes.Rows(Fila).Cells(11).Value, kLongTextoExtra)
        'lEstructura_Clientes.cTextoExtra5 = New Byte(kLongTextoExtra - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cTextoExtra5, 0)

        'lAux = f_RellenaConBlancos(dgClientes.Rows(Fila).Cells(12).Value, kLongFecha)
        'lEstructura_Clientes.cFechaExtra = New Byte(kLongFecha - 1) {}
        'encoder.GetBytes(lAux, 0, lAux.Length, lEstructura_Clientes.cFechaExtra, 0)

        'lEstructura_Clientes.cImporteExtra1 = dgClientes.Rows(Fila).Cells(13).Value
        'lEstructura_Clientes.cImporteExtra2 = dgClientes.Rows(Fila).Cells(14).Value
        'lEstructura_Clientes.cImporteExtra3 = dgClientes.Rows(Fila).Cells(15).Value
        'lEstructura_Clientes.cImporteExtra4 = 0

        ' lRet = fEditaCteProv(lIdCliente, lEstructura_Clientes)
        'lRet = fAltaCteProv(lIdCliente, lEstructura_Clientes)
        'If lRet <> 0 Then
        'Errores = True
        'MensajeError(lRet)
        'End If
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Close()

    End Sub

    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
        'For i = 0 To dgClientes.Rows.Count - 1
        'dgClientes.CurrentCell = dgClientes.Rows(i).Cells(0)
        'Application.DoEvents()

        'If Errores = False Then
        'ActualizaClienteAdminPAQ(i)
        'ActualizaAutobusConop(i)
        'Else
        'Exit For
        'End If
        'Next

        'If Errores = False Then
        'MsgBox("Registros Actualizaros", MsgBoxStyle.Information, "Aviso")
        'End If



        Dim cnConn As New sqlConnection
        Dim cmdBuscar As New sqlCommand
        Dim rdBuscar As SqlDataReader


        cnConn.ConnectionString = CitraConnection

        cmdBuscar.Connection = cnConn
        cmdBuscar.CommandText = "SELECT cIdClien01,cEstatus FROM MGW10002 WHERE CTIPOCLI01=1"

        cnConn.Open()
        rdBuscar = cmdBuscar.ExecuteReader

        Do While rdBuscar.Read()
            Call SetSqlCitra("UPDATE Autobuses SET Estatus=" & rdBuscar("cEstatus") & " WHERE cIdClien01=" & rdBuscar("cIdClien01"))
        Loop

        MsgBox("Listo", MsgBoxStyle.Information, "Aviso")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim xl As Object
        Dim wb As Object
        Dim strArchivo As String
        Dim rng As Integer
        strArchivo = "\\AUSSVR2\CONTPAQ\CompacW\Empresas\Reportes\AdminPAQ\exportacion.xls"
        xl = CreateObject("Excel.Application")
        xl.Visible = False
        xl.Workbooks.open(strArchivo)
        wb = xl.activeworkbook
        xl.screenupdating = False


        Dim NoInt As String
        Dim NoEco As String
        Dim CL1 As String
        Dim CL2 As String
        Dim CL3 As String
        Dim CL4 As String
        Dim CL5 As String
        Dim Texto1 As String
        Dim Texto2 As String
        Dim Texto3 As String
        Dim Texto4 As String
        Dim Texto5 As String
        Dim FechaE As String
        Dim Importe1 As String
        Dim Importe2 As String
        Dim Importe3 As String


        For i = 24 To 1000
            NoInt = xl.sheets("Clientes").cells(i, 2).value
            If NoInt = "" Then
                Exit For
            End If
            NoEco = xl.sheets("Clientes").cells(i, 3).value
            CL1 = xl.sheets("Clientes").cells(i, 13).value
            CL2 = xl.sheets("Clientes").cells(i, 14).value
            CL3 = xl.sheets("Clientes").cells(i, 15).value
            CL4 = xl.sheets("Clientes").cells(i, 16).value
            CL5 = xl.sheets("Clientes").cells(i, 17).value
            Texto1 = xl.sheets("Clientes").cells(i, 52).value
            Texto2 = xl.sheets("Clientes").cells(i, 53).value
            Texto3 = xl.sheets("Clientes").cells(i, 54).value
            Texto4 = xl.sheets("Clientes").cells(i, 55).value
            Texto5 = xl.sheets("Clientes").cells(i, 56).value
            FechaE = xl.sheets("Clientes").cells(i, 57).value
            Importe1 = xl.sheets("Clientes").cells(i, 58).value
            Importe2 = xl.sheets("Clientes").cells(i, 59).value
            Importe3 = xl.sheets("Clientes").cells(i, 60).value
            If Importe1 = "" Then
                Importe1 = "0"
            End If
            If Importe2 = "" Then
                Importe2 = "0"
            End If
            If Importe3 = "" Then
                Importe3 = "0"
            End If

            dgClientes.Rows.Add(NoInt, NoEco, CL1, CL2, CL3, CL4, CL5, Texto1, Texto2, Texto3, Texto4, Texto5, FechaE, Importe1, Importe2, Importe3)
        Next

        wb.CLOSE(False)
        xl.quit()
        xl = Nothing
    End Sub
End Class